subroutine log_msg1(lunit,str1)
  implicit none
  integer,intent(in) :: lunit
  character :: str1*(*)

900 format(a)

  write(lunit,900) trim(adjustl(str1))

  return

end subroutine log_msg1
